home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Graphics / X-TRACE67.lzh / XTRACE R67 / X-TRACE / X-TRACE.rsrc / TEXT_757_vrml_sph.xti.txt < prev    next >
Text File  |  1999-01-31  |  980b  |  63 lines
  1. modela    "Sphere for VRML-MODELA bridge"
  2. {
  3.     nvar    vrml.sph.smooth=120;
  4.     nvar    vrml.sph.pn=10;
  5.  
  6.     smooth    vrml.sph.smooth : model
  7.     {
  8.         var        vrml.sph.pn2=int (vrml.sph.pn/2);
  9.         var        r=vrml.sph.radius;
  10.         var        h=r;
  11.  
  12.         var        t1,t2;
  13.         var        c1,c2,s1,s2;
  14.         var        r1,r2,y1,y2;
  15.         var        x1,z1,x2,z2,x3,z3,x4,z4;
  16.  
  17.         sim        r,h,r;
  18.         boundary    sphere    0,0,0, 1
  19.         {
  20.             var        i,j;
  21.             attr    vrml_attr_0;
  22.             j=0;
  23.             while    (j<vrml.sph.pn2)
  24.             {
  25.                 t1=PI*j/vrml.sph.pn2;
  26.                 t2=PI*(j + 1)/vrml.sph.pn2;
  27.                 y1=cos (t1);
  28.                 r1=sin (t1);
  29.                 y2=cos (t2);
  30.                 r2=sin (t2);
  31.  
  32.                 i=0;
  33.                 while    (i<vrml.sph.pn)
  34.                 {
  35.                     t1=2*PI*i/vrml.sph.pn;
  36.                     t2=2*PI*(i + 1)/vrml.sph.pn;
  37.                     c1=cos (t1);
  38.                     s1=sin (t1);
  39.                     c2=cos (t2);
  40.                     s2=sin (t2);
  41.                     x1=r1*c1;
  42.                     z1=r1*s1;
  43.                     x2=r1*c2;
  44.                     z2=r1*s2;
  45.                     x3=r2*c1;
  46.                     z3=r2*s1;
  47.                     x4=r2*c2;
  48.                     z4=r2*s2;
  49.                     poly
  50.                     {
  51.                         pt    x1,y1,z1;
  52.                         pt    x2,y1,z2;
  53.                         pt    x4,y2,z4;
  54.                         pt    x3,y2,z3;
  55.                     }
  56.                     i=i + 1;
  57.                 }
  58.                 j=j + 1;
  59.             }
  60.         }
  61.     }
  62. }
  63.